home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00002_Script_key manager class next >
Text File  |  1997-08-08  |  2KB  |  106 lines
  1. -- key manager class
  2. -- --------------------------------------------------
  3. -- fairly stupid just keeps track of which keys are down
  4. -- because mac cannot handle the keyboard properly
  5. -- we just track the last key: downkey 
  6. -- sets to 0 if no key down
  7. -- --------------------------------------------------
  8.  
  9. property codeindex
  10. property downkey
  11.  
  12. global gplayer, gkeylist
  13.  
  14. -- ==================================================
  15. -- new method
  16. -- --------------------------------------------------
  17. on new me
  18.   
  19.   minit me
  20.   return me
  21.   
  22. end mnew 
  23.  
  24. -- ==================================================
  25. -- new method
  26. -- --------------------------------------------------
  27.  
  28. on minit me
  29.   
  30.   set codeindex = gkeylist
  31.   set downkey = 0
  32.   
  33.   
  34. end minit me
  35.  
  36. -- ==================================================
  37. -- mdown method
  38. -- --------------------------------------------------
  39. on mdown me
  40.   
  41.   --  put "** in mdown key manager "
  42.   
  43.   set newkey = getone ( codeindex, the keycode )
  44.   
  45.   if newkey = downkey then 
  46.     -- put "ò keyboard autorepeat!"
  47.     return
  48.   end if
  49.   
  50.   if symbolp (newkey) then
  51.     
  52.     if newkey = #quit then
  53.       hendgame
  54.       go frame "quit"
  55.       return
  56.     else
  57.       
  58.       set downkey = newkey
  59.       mkeydown ( gplayer , downkey )
  60.     end if
  61.     
  62.   end if
  63.   
  64.   --  put "** out mdown key manager "
  65.   
  66. end mdown
  67.  
  68. -- ==================================================
  69. -- mup method
  70. -- --------------------------------------------------
  71. on mup me
  72.   
  73.   --  put "in mup key manager "
  74.   
  75.   set newkey = getone ( codeindex, the keycode )
  76.   
  77.   if ( newkey = downkey ) then 
  78.     set downkey = 0
  79.   else
  80.     --    put "ò complex keys!"
  81.   end if
  82.   
  83.   --  put "out mup key manager "
  84.   
  85. end mup
  86.  
  87. -- ==================================================
  88. -- mgetlastest method
  89. -- --------------------------------------------------
  90. on mgetlatest me
  91.   
  92.   -- put "in mgetlatest key"
  93.   
  94.   return downkey
  95.   
  96.   -- put "out mgetlatest key"
  97.   
  98. end mgetlatest
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.